﻿Public Class xtf_ABMsoldaduraensayo
    Public obj_soldaduraensayo As cls_soldaduraensayo_ = Nothing
    Private col_ControlesValidar As List(Of Control)

    Public Sub New()
        InitializeComponent()
        Cargarensayosubtipo_()
        Me.Text = "soldaduraensayo - Nuevo"
        obj_soldaduraensayo = New cls_soldaduraensayo_
        AgregarValidacionesGlobal(Me, Me.lac_general, col_ControlesValidar)
    End Sub

    Private Sub Cargarensayosubtipo_()
        Dim ensayosubtipo_ As New cls_ensayosubtipo_
        ensayosubtipo_.CargarTodos()
        cargarCombo(cbo_ensayosubtipo, ensayosubtipo_.Items)
    End Sub


    Public Sub Modificar(ByRef soldaduraensayo As cls_soldaduraensayo_)
        If IsNothing(obj_soldaduraensayo) Then
            obj_soldaduraensayo = New cls_soldaduraensayo_
        End If
        obj_soldaduraensayo = soldaduraensayo

        Me.Text = "soldaduraensayo - " & obj_soldaduraensayo.ToString
        'txt_ID.Text = obj_localidad.idlocalidad
        cbo_ensayosubtipo.EditValue = soldaduraensayo.idensayosubtipo

        obj_soldaduraensayo.ensayosubtipo = Nothing
    End Sub


    Public Function ComprobarDatos() As Boolean
        'If cbo_Tiposoldaduraensayo.Enabled = False Then
        '    ErrManagerShow("001019")
        '    Return False
        'End If
        'If Not ControlarValidacionesGlobal(col_ControlesValidar) Then
        '    ErrManagerShow("000004", Me)
        '    Return False
        'End If
        Return True
    End Function

    Private Sub btn_Guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Guardar.Click
        If ComprobarDatos() Then
            obj_soldaduraensayo.idensayosubtipo = cbo_ensayosubtipo.EditValue
            Me.DialogResult = Windows.Forms.DialogResult.OK
        End If

    End Sub

    Private Sub btn_Cerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cerrar.Click
        Me.DialogResult = Windows.Forms.DialogResult.Cancel
    End Sub
End Class